home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM BV3 / BMUG PD-ROM Version BV3 (CDRM1097900).iso / HyperCard / Games / The Golden Parrot / background_7511.txt < prev    next >
Text File  |  1990-08-20  |  9KB  |  416 lines
  1. -- background: 7511 from stack: in
  2. -- bmap block id: 23918
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: choice template
  6. ----- HyperTalk script -----
  7. on openCard
  8.  
  9.   put the number of lines in bkgnd field "textarea" into counter
  10.   repeat with num = 1 to counter
  11.     show bkgnd button num
  12.     add 1 to num
  13.   end repeat
  14.   repeat with counter = counter to 13
  15.     add 1 to counter
  16.     hide bkgnd button counter
  17.   end repeat
  18.  
  19.   global score
  20.   get score
  21.   if score <= 0 then
  22.     visual effect scroll up
  23.     go to card "end"
  24.   end if
  25.   put it into field "scorebox"
  26.  
  27. end openCard
  28.  
  29. on closeCard
  30.   get last char of field textarea
  31.   if it is return then
  32.     delete last char of field textarea
  33.   end if
  34. end closeCard
  35.  
  36.  
  37.  
  38.  
  39. -- part 2 (button)
  40. -- low flags: 00
  41. -- high flags: 2000
  42. -- rect: left=22 top=57 right=76 bottom=51
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 26635 / 26635
  45. -- text alignment: 1
  46. -- font id: 0
  47. -- text size: 12
  48. -- style flags: 0
  49. -- line height: 16
  50. -- part name: number 1
  51. ----- HyperTalk script -----
  52. on mouseUp
  53.   get character 1 to 29 of line 1 of bkgnd field "textarea"
  54.   put it into there
  55.   delete line 1 of bkgnd field "textarea"
  56.   visual effect dissolve
  57.   go to card it
  58. end mouseUp
  59.  
  60.  
  61.  
  62. -- part 1 (field)
  63. -- low flags: 01
  64. -- high flags: 0000
  65. -- rect: left=6 top=28 right=54 bottom=349
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 0
  69. -- font id: 21
  70. -- text size: 18
  71. -- style flags: 256
  72. -- line height: 24
  73. -- part name: cardname
  74.  
  75.  
  76. -- part 3 (button)
  77. -- low flags: 00
  78. -- high flags: 2000
  79. -- rect: left=22 top=75 right=94 bottom=51
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 26635 / 26635
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: number 2
  88. ----- HyperTalk script -----
  89. on mouseUp
  90.   get character 1 to 29 of line 2 of bkgnd field "textarea"
  91.   put it into there
  92.   delete line 2 of bkgnd field "textarea"
  93.   visual effect dissolve
  94.   go to card it
  95. end mouseUp
  96.  
  97.  
  98.  
  99. -- part 4 (button)
  100. -- low flags: 00
  101. -- high flags: 2000
  102. -- rect: left=22 top=93 right=112 bottom=51
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 26635 / 26635
  105. -- text alignment: 1
  106. -- font id: 0
  107. -- text size: 12
  108. -- style flags: 0
  109. -- line height: 16
  110. -- part name: number 3
  111. ----- HyperTalk script -----
  112. on mouseUp
  113.   get character 1 to 29 of line 3 of bkgnd field "textarea"
  114.   put it into there
  115.   delete line 3 of bkgnd field "textarea"
  116.   visual effect dissolve
  117.   go to card it
  118. end mouseUp
  119.  
  120.  
  121.  
  122. -- part 5 (button)
  123. -- low flags: 00
  124. -- high flags: 2000
  125. -- rect: left=22 top=111 right=130 bottom=51
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 26635 / 26635
  128. -- text alignment: 1
  129. -- font id: 0
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: number 4
  134. ----- HyperTalk script -----
  135. on mouseUp
  136.   get character 1 to 29 of line 4 of bkgnd field "textarea"
  137.   put it into there
  138.   delete line 4 of bkgnd field "textarea"
  139.   visual effect dissolve
  140.   go to card it
  141. end mouseUp
  142.  
  143.  
  144.  
  145. -- part 6 (button)
  146. -- low flags: 00
  147. -- high flags: 2000
  148. -- rect: left=22 top=129 right=148 bottom=51
  149. -- title width / last selected line: 0
  150. -- icon id / first selected line: 26635 / 26635
  151. -- text alignment: 1
  152. -- font id: 0
  153. -- text size: 12
  154. -- style flags: 0
  155. -- line height: 16
  156. -- part name: number 5
  157. ----- HyperTalk script -----
  158. on mouseUp
  159.   get character 1 to 29 of line 5 of bkgnd field "textarea"
  160.   put it into there
  161.   delete line 5 of bkgnd field "textarea"
  162.   visual effect dissolve
  163.   go to card it
  164. end mouseUp
  165.  
  166.  
  167.  
  168. -- part 7 (button)
  169. -- low flags: 00
  170. -- high flags: 2000
  171. -- rect: left=22 top=147 right=166 bottom=51
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 26635 / 26635
  174. -- text alignment: 1
  175. -- font id: 0
  176. -- text size: 12
  177. -- style flags: 0
  178. -- line height: 16
  179. -- part name: number 6
  180. ----- HyperTalk script -----
  181. on mouseUp
  182.   get character 1 to 29 of line 6 of bkgnd field "textarea"
  183.   put it into there
  184.   delete line 6 of bkgnd field "textarea"
  185.   visual effect dissolve
  186.   go to card it
  187. end mouseUp
  188.  
  189.  
  190.  
  191. -- part 8 (button)
  192. -- low flags: 00
  193. -- high flags: 2000
  194. -- rect: left=22 top=165 right=184 bottom=51
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 26635 / 26635
  197. -- text alignment: 1
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: number 7
  203. ----- HyperTalk script -----
  204. on mouseUp
  205.   get character 1 to 29 of line 7 of bkgnd field "textarea"
  206.   put it into there
  207.   delete line 7 of bkgnd field "textarea"
  208.   visual effect dissolve
  209.   go to card it
  210. end mouseUp
  211.  
  212.  
  213.  
  214. -- part 9 (button)
  215. -- low flags: 00
  216. -- high flags: 2000
  217. -- rect: left=22 top=183 right=202 bottom=51
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 26635 / 26635
  220. -- text alignment: 1
  221. -- font id: 0
  222. -- text size: 12
  223. -- style flags: 0
  224. -- line height: 16
  225. -- part name: number 8
  226. ----- HyperTalk script -----
  227. on mouseUp
  228.   get character 1 to 29 of line 8 of bkgnd field "textarea"
  229.   put it into there
  230.   delete line 8 of bkgnd field "textarea"
  231.   visual effect dissolve
  232.   go to card it
  233. end mouseUp
  234.  
  235.  
  236.  
  237. -- part 10 (button)
  238. -- low flags: 80
  239. -- high flags: 2000
  240. -- rect: left=22 top=201 right=220 bottom=51
  241. -- title width / last selected line: 0
  242. -- icon id / first selected line: 26635 / 26635
  243. -- text alignment: 1
  244. -- font id: 0
  245. -- text size: 12
  246. -- style flags: 0
  247. -- line height: 16
  248. -- part name: number 9
  249. ----- HyperTalk script -----
  250. on mouseUp
  251.   get character 1 to 29 of line 9 of bkgnd field "textarea"
  252.   put it into there
  253.   delete line 9 of bkgnd field "textarea"
  254.   visual effect dissolve
  255.   go to card it
  256. end mouseUp
  257.  
  258.  
  259.  
  260. -- part 11 (button)
  261. -- low flags: 80
  262. -- high flags: 2000
  263. -- rect: left=22 top=219 right=238 bottom=51
  264. -- title width / last selected line: 0
  265. -- icon id / first selected line: 26635 / 26635
  266. -- text alignment: 1
  267. -- font id: 0
  268. -- text size: 12
  269. -- style flags: 0
  270. -- line height: 16
  271. -- part name: number 10
  272. ----- HyperTalk script -----
  273. on mouseUp
  274.   get character 1 to 29 of line 10 of bkgnd field "textarea"
  275.   put it into there
  276.   delete line 10 of bkgnd field "textarea"
  277.   visual effect dissolve
  278.   go to card it
  279. end mouseUp
  280.  
  281.  
  282.  
  283. -- part 12 (button)
  284. -- low flags: 80
  285. -- high flags: 2000
  286. -- rect: left=22 top=237 right=256 bottom=51
  287. -- title width / last selected line: 0
  288. -- icon id / first selected line: 26635 / 26635
  289. -- text alignment: 1
  290. -- font id: 0
  291. -- text size: 12
  292. -- style flags: 0
  293. -- line height: 16
  294. -- part name: number 11
  295. ----- HyperTalk script -----
  296. on mouseUp
  297.   get character 1 to 29 of line 11 of bkgnd field "textarea"
  298.   put it into there
  299.   delete line 11 of bkgnd field "textarea"
  300.   visual effect dissolve
  301.   go to card it
  302. end mouseUp
  303.  
  304.  
  305.  
  306. -- part 13 (button)
  307. -- low flags: 80
  308. -- high flags: 2000
  309. -- rect: left=22 top=255 right=274 bottom=51
  310. -- title width / last selected line: 0
  311. -- icon id / first selected line: 26635 / 26635
  312. -- text alignment: 1
  313. -- font id: 0
  314. -- text size: 12
  315. -- style flags: 0
  316. -- line height: 16
  317. -- part name: number 12
  318. ----- HyperTalk script -----
  319. on mouseUp
  320.   on mouseUp
  321.     get character 1 to 29 of line 12 of bkgnd field "textarea"
  322.     put it into there
  323.     delete line 12 of bkgnd field "textarea"
  324.     visual effect dissolve
  325.     go to card it
  326.   end mouseUp
  327.  
  328.  
  329.  
  330. -- part 14 (button)
  331. -- low flags: 80
  332. -- high flags: 2000
  333. -- rect: left=22 top=273 right=292 bottom=51
  334. -- title width / last selected line: 0
  335. -- icon id / first selected line: 26635 / 26635
  336. -- text alignment: 1
  337. -- font id: 0
  338. -- text size: 12
  339. -- style flags: 0
  340. -- line height: 16
  341. -- part name: number 13
  342. ----- HyperTalk script -----
  343. on mouseUp
  344.   get character 1 to 29 of line 13 of bkgnd field "textarea"
  345.   put it into there
  346.   delete line 13 of bkgnd field "textarea"
  347.   visual effect dissolve
  348.   go to card it
  349. end mouseUp
  350.  
  351.  
  352.  
  353. -- part 15 (button)
  354. -- low flags: 80
  355. -- high flags: 2000
  356. -- rect: left=22 top=291 right=310 bottom=51
  357. -- title width / last selected line: 0
  358. -- icon id / first selected line: 26635 / 26635
  359. -- text alignment: 1
  360. -- font id: 0
  361. -- text size: 12
  362. -- style flags: 0
  363. -- line height: 16
  364. -- part name: number 14
  365. ----- HyperTalk script -----
  366. on mouseUp
  367.   get character 1 to 29 of line 14 of bkgnd field "textarea"
  368.   put it into there
  369.   delete line 14 of bkgnd field "textarea"
  370.   visual effect dissolve
  371.   go to card it
  372. end mouseUp
  373.  
  374.  
  375.  
  376. -- part 16 (field)
  377. -- low flags: 01
  378. -- high flags: 0000
  379. -- rect: left=49 top=58 right=314 bottom=500
  380. -- title width / last selected line: 0
  381. -- icon id / first selected line: 0 / 0
  382. -- text alignment: 0
  383. -- font id: 21
  384. -- text size: 14
  385. -- style flags: 256
  386. -- line height: 18
  387. -- part name: textarea
  388.  
  389.  
  390. -- part 17 (field)
  391. -- low flags: 80
  392. -- high flags: 0000
  393. -- rect: left=187 top=220 right=314 bottom=500
  394. -- title width / last selected line: 0
  395. -- icon id / first selected line: 0 / 0
  396. -- text alignment: 0
  397. -- font id: 21
  398. -- text size: 14
  399. -- style flags: 0
  400. -- line height: 18
  401. -- part name: initials
  402.  
  403.  
  404. -- part 18 (field)
  405. -- low flags: 01
  406. -- high flags: 0000
  407. -- rect: left=449 top=34 right=54 bottom=503
  408. -- title width / last selected line: 0
  409. -- icon id / first selected line: 0 / 0
  410. -- text alignment: 0
  411. -- font id: 3
  412. -- text size: 12
  413. -- style flags: 0
  414. -- line height: 16
  415. -- part name: scorebox
  416.